procedure TForm1.ButtonKind(PenMode :TPenMode);
begin 
  Image1.Canvas.Pen.Mode := PenMode;

// 그림을 그릴 때.
if DrawBtn.Down = True then
   Image1.Canvas.LineTo(MPoint.X, MPoint.Y);

// 선을 그릴 때.
if LineBtn.Down = True then
begin
   Image1.Canvas.MoveTo(StartDot.X, StartDot.Y);
   Image1.Canvas.LineTo(MPoint.X, MPoint.Y);
end;

// 사각형을 그릴 때.
if RectBtn.Down = True then
   Image1.Canvas.Rectangle(StartDot.X, StartDot.Y, MPoint.X, MPoint.Y); 

// 원을 그릴 때.
if EllipseBtn.Down = True then
   Image1.Canvas.Ellipse(StartDot.X, StartDot.Y, MPoint.X, MPoint.Y); 

// 둥근 사각형을 그릴 때.
if Round.Down = True then
   Image1.Canvas.RoundRect(StartDot.X, StartDot.Y, MPoint.X, MPoint.Y
                           (StartDot.X - MPoint.X) div 2, (StartDot.Y - MPoint.Y) div 2);

// 지우개.
if EraseBtn.Down = True then
begin
   Image1.Canvas.Pen.Mode := pmWhite;
   Image1.Canvas.LineTo(MPoint.X, MPoint.Y);
end; 

// 선택된 공간 채우기.
if FillBtn.Down = True then
begin
   Image1.Canvas.Brush.Color := ColorGrid1.ForegroundColor;
   Image1.Canvas.FloodFill((StartDot.X), (StartDot.Y), ColorGrid1.ForegroundColor.fSSURFACE);
   Image1.Canvas.Brush.Color := clWhite;
end;

end;